home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / ssetup / csetup.ba_ / CSETUP.BAS
Encoding:
BASIC Source File  |  1994-04-09  |  18.9 KB  |  373 lines
  1.  
  2. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  3. ' Setup Studio 2.2 COPYRIGHT 1993, 1994 Denis CHEVRON - Header file for Visual Basic (r) and Basic like languages
  4. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  5. ' Please, Copy this file into your Global.bas module
  6. ' For more information, see CSETUP.H or CSETUP.HLP
  7. ' Use this file with CSETUP.DLL.
  8. '
  9. ' ----------------------------------------------------------------------------------------------------------------------------------------------------------
  10.  
  11. ' ---------------------------
  12. ' Special for this version
  13. ' ---------------------------
  14. Declare Function GetModuleHandle Lib "KERNEL.DLL" (ByVal lpszModuleName$) As Integer
  15. Declare Function Ctl3dRegister Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  16. Declare Function Ctl3dUnregister Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  17. Declare Function Ctl3dAutoSubclass Lib "CTL3D.DLL" (ByVal hIntanceApp%) As Integer
  18.  
  19. '----------------------------
  20. ' Initialization function
  21. '----------------------------
  22. Declare Sub SetupInitForFunctions Lib "CSETUP.DLL"( ByVal szYourName$, ByVal szPassword$ )    '[new]
  23.  
  24. '---------------------------
  25. ' 1 - Information functions
  26. '---------------------------
  27.  
  28.  
  29. '-------------------------------------
  30. ' General System information functions
  31. '-------------------------------------
  32. Global Const BDETECT_WIN386 = 0                 ' 386 mode
  33. Global Const BDETECT_VGA640 = 1                 ' VGA 640 pixels at least
  34. Global Const BDETECT_VGA800 = 2                 ' VGA 800 pixels at least
  35. Global Const BDETECT_VGA1024 = 3                ' VGA 1024 pixels at least
  36. Global Const BDETECT_16COLORS = 4               ' 16 colors at least
  37. Global Const BDETECT_256COLORS = 5              ' 256 colors at least
  38. Global Const BDETECT_COPRO = 6                  ' Math. coprocessor
  39. Global Const BDETECT_286 = 7                    ' 286 CPU
  40. Global Const BDETECT_386 = 8                    ' 386 CPU
  41. Global Const BDETECT_486 = 9                    ' 486 CPU
  42. Global Const BDETECT_MOUSE = 10                 ' Mouse
  43. Declare Function bDetect Lib "CSETUP.dll" (ByVal CVALUE%) As Integer
  44.  
  45. Global Const LDETECT_BUFFERS = 0                ' Buffers declared in CONFIG.SYS
  46. Global Const LDETECT_FILES = 1                  ' Files declared in CONFIG.SYS
  47. Global Const LDETECT_DRIVES = 2                 ' Number of drives
  48. Global Const LDETECT_FREERES = 3                ' Free system resources available ( percent )
  49. Global Const LDETECT_FREERAM = 4                ' Free memory available
  50. Declare Function lDetect Lib "CSETUP.dll" (ByVal CVALUE%) As Long
  51.  
  52.  
  53. '------------------------------
  54. ' Drives information functions
  55. '------------------------------
  56. Global Const DRIVETYPE_REMOTE = 0               ' Network unit
  57. Global Const DRIVETYPE_FIXED = 1                ' HD
  58. Global Const DRIVETYPE_REMOVABLE = 2            ' FD
  59. Global Const DRIVETYPE_UNKNOWN = 3              ' Unknown type
  60.  
  61. Declare Function AskForDriveType Lib "CSETUP.dll" (ByVal drive%) As Integer
  62. Declare Function AskForDriveSpace Lib "CSETUP.dll" (ByVal drive%) As Long
  63. Declare Function IsDriveValid Lib "CSETUP.dll" (ByVal szDriveLetter$) As Integer
  64. Declare Function GetDriveNumber Lib "CSETUP.DLL" ( ByVal szPath$ ) As Integer
  65.  
  66.  
  67.  
  68.  
  69. '--------------------------------
  70. ' Directory information functions
  71. '--------------------------------
  72. Declare Function AskForWinDir Lib "CSETUP.dll" () As String
  73. Declare Function AskForWinSysDir Lib "CSETUP.dll" () As String
  74. Declare Function DoesDirExist Lib "CSETUP.dll" (ByVal szDirName$) As Integer
  75.  
  76.  
  77.  
  78. '----------------------------
  79. ' Files information functions
  80. '----------------------------
  81. Declare Function DoesFileExist Lib "CSETUP.dll" (ByVal szFileName$, ByVal FormalSearch%) As Integer
  82. Declare Function GetAbsoluteFileName Lib "CSETUP.dll" (ByVal szFileName$) As String
  83.  
  84.  
  85.  
  86. '--------------------------------------------
  87. ' Module ( DLL or EXE ) information functions
  88. '---------------------------------------------
  89. Declare Function CountModuleUsage( ByVal szModule$ ) As Integer
  90. Declare Function IsDLLLoaded( ByVal szModule$ ) As Integer
  91.  
  92.  
  93.  
  94. '--------------------------------------------
  95. ' Environment information functions
  96. '--------------------------------------------
  97. Declare Function GetEnvVariable Lib "CSETUP.dll" (ByVal szVariableName$ ) As String    
  98. Declare Function CountPathsInPATH Lib "CSETUP.dll" ( ) As Integer
  99. Declare Function GetPathFromPATH Lib "CSETUP.dll" (ByVal iPath% ) As String
  100.  
  101.  
  102. '--------------------------------------
  103. ' 2 - Low level file and dir managment
  104. '--------------------------------------
  105.  
  106. '--------------
  107. ' Binary files
  108. '--------------
  109. Declare Function RenameFile Lib "CSETUP.dll" (ByVal szOldFile$, ByVal szNewFile$) As Integer
  110. 'Declare Function GetTempName Lib "CSETUP.dll" (ByVal szOriginalName$) As String '[Deleted]
  111. Declare Function DeleteFile Lib "CSETUP.dll" (ByVal szFile$) As Integer
  112. Declare Function TouchFile Lib "CSETUP.dll" (ByVal szFileName$, ByVal szNewDate$) As Integer
  113. Declare Function SetReadOnly Lib "CSETUP.dll" (ByVal szFileName$, ByVal bRO%) As Integer
  114. Declare Function GetFileLength Lib "CSETUP.dll" (ByVal szFileName$) As Long
  115. 'Declare Function ExpandAndCopyFile Lib "CSETUP.dll" (ByVal szFileName$, ByVal szOutDir$) As Integer [Deleted]
  116. Declare Function CopyFile Lib "CSETUP.dll" (ByVal szSrcFile$, ByVal szDestFile$) As Integer
  117. Declare Function ReCreateFile Lib "CSETUP.dll" (ByVal szOriginalName$, ByVal szPieceFileName$) As Integer
  118.  
  119.  
  120. '-------------
  121. ' Ascii files
  122. '-------------
  123. Declare Function CreateAsciiFile Lib "CSETUP.dll" (ByVal szFileName$) As Integer
  124. Declare Function CountFileLines Lib "CSETUP.dll" (ByVal szFileName$) As Long
  125. Declare Function GetStringFromFile Lib "CSETUP.dll" (ByVal szFileName$, ByVal lIndex As Long) As String
  126. Declare Function GetLineFromString Lib "CSETUP.dll" (ByVal szFileName$, ByVal szString$, ByVal lStart As Long)
  127. Declare Function FindStringInTextFile Lib "CSETUP.dll" (ByVal szFileName$, ByVal szString$) As Integer
  128. Declare Function DeleteString Lib "CSETUP.dll" (ByVal szFile$, ByVal iIndex%) As Integer
  129. Declare Function AddString Lib "CSETUP.dll" (ByVal szFile$, ByVal szValue$) As Integer
  130. Declare Function SetLineInFile Lib "CSETUP.dll" (ByVal szFileName$, ByVal szString$, ByVal lIndex As Long) As Integer
  131.  
  132.  
  133.  
  134. '-------------------------------
  135. ' Directory managment functions
  136. '-------------------------------
  137. Declare Function CreateDir Lib "CSETUP.dll" (ByVal szDirName$) As Integer
  138. Declare Function DeleteDir Lib "CSETUP.dll" (ByVal szDirName$) As Integer
  139.  
  140.  
  141.  
  142. '----------------------------------------------------------------------
  143. ' 3 - SDK similar functions useful for Setup programms ( for VB users )
  144. '----------------------------------------------------------------------
  145.  
  146.  
  147. '---------------------
  148. ' INI files managment
  149. '---------------------
  150. Declare Function GetWinIniInt Lib "CSETUP.dll" (ByVal szSection$, ByVal szKey$, ByVal iDefault%) As Integer
  151. Declare Function GetWinIniString Lib "CSETUP.dll" (ByVal szSection$, ByVal szKey$, ByVal szDefault$) As String
  152. Declare Function GetIniInt Lib "CSETUP.dll" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal iDefault) As Integer
  153. Declare Function GetIniString Lib "CSETUP.dll" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal szDefault$) As String
  154. Declare Function SetWinnIniString Lib "CSETUP.dll" (ByVal szSection$, ByVal szKey$, ByVal szValue$) As Integer
  155. Declare Function SetIniString Lib "CSETUP.dll" (ByVal szFile$, ByVal szSection$, ByVal szKey$, ByVal szValue$) As Integer
  156.  
  157.  
  158. '---------------------
  159. ' Programms execution
  160. '---------------------
  161. Global Const RESTART_QUIT = 0
  162. Global Const RESTART_REBOOT = &H43
  163. Global Const RESTART_RESTART = &H42
  164.  
  165. Declare Sub QuitWindows Lib "CSETUP.dll" (ByVal cMode%)
  166.  
  167. Global Const APPEXECUTE_SNORMAL = 0               ' Show normal and activate app.
  168. Global Const APPEXECUTE_SICON = 1                 ' Show iconized and activate app.
  169. Global Const APPEXECUTE_SMAX = 2                  ' Show maximized and activate app
  170. Global Const APPEXECUTE_SNOACTIVATE = 3           ' Show normal and do not activate app.
  171.  
  172. Declare Function AppExecute Lib "CSETUP.dll" (ByVal szAppName$, ByVal cShowMode%) As Integer
  173. Declare Function DosTempExec Lib "CSETUP.dll" (ByVal szAppName$, ByVal szParams$) As Integer
  174.  
  175.  
  176.  
  177. '----------------------------
  178. ' 4 - Setup specific helpers
  179. '----------------------------
  180. ' Note:
  181. '
  182. '   These functions may help you to create the Setup Interface before the files transfer.
  183. '   You need to initialise the DLL before any call to these functions
  184. '
  185. '----------------------------
  186.  
  187. '----------------------
  188. ' Sections information
  189. '----------------------
  190. Declare Function GetSectionSize Lib "CSETUP.dll" (ByVal szSectionName$) As Long
  191. Declare Function GetConfigurationSize Lib "CSETUP.dll" () As Long
  192.  
  193.  
  194. '--------------------------------------------------------------
  195. ' File name mangment ( useful to create Parsed Edit controls )
  196. '--------------------------------------------------------------
  197. Global Const FILENAME_SINGLEFILE = 0                    ' Filename must not contain directory specification
  198. Global Const FILENAME_DIRWITHSLASH = 1                  ' Dirname must contain a final \
  199. Global Const FILENAME_DIRWITHOUTSLASH = 2               ' Dirname must not contain a final \
  200. Global Const FILENAME_DIRANDFILE = 3                    ' Dirname + Filename
  201.  
  202. Global Const CHECK_NOCHECK = 0                          ' No check
  203. Global Const CHECK_FILEEXIST = 1                        ' The file must exist
  204. Global Const CHECK_ROOTDIRSEXIST = 2                    ' All root directories ( without the last ) must exist
  205. Global Const CHECK_ALLDIREXIST = 3                      ' All directories must exist
  206. Global Const CHECK_DIRANDFILE = 4                       ' All directories and the file must exist
  207.             
  208. Declare Function IsFileName Lib "CSETUP.dll" (ByVal szFileName$, ByVal IsFileType%, ByVal iCheckMode%) As Integer
  209. Declare Function FormatFileNameValid Lib "CSETUP.dll" (ByVal szFileNameIn$, ByVal bWithFinalSlash%) As String
  210.  
  211.  
  212. '----------------------------
  213. ' Setup specific directories
  214. '----------------------------
  215. Declare Sub GetOriginalDir Lib "CSETUP.dll" (szBuffer$)
  216. Declare Sub GetSetupTempDir Lib "CSETUP.dll" (szBuffer$)
  217.                 
  218.  
  219.  
  220.  
  221.  
  222.  
  223. '--------------------------------
  224. ' 5 - Setup high level functions
  225. '--------------------------------
  226. ' Note:
  227. '
  228. '     You need to initialise the DLL before any call to these functions
  229. '
  230. '--------------------------------
  231. '
  232. '    Many functions are not required to create a setup programm.
  233. '    At least you should call:
  234. '
  235. '       SetupInitialize( "TEST", "")                    ----> Initialize the DLL
  236. '       AddSectionToCopyList( "Files", "dir" )          ----> Choose a Section to copy
  237. '       DeleteSystemDir()                               ----> To clean up the drive
  238. '
  239. '--------------------------------
  240.            
  241.            
  242. '--------------------------
  243. ' Initialization functions
  244. '--------------------------
  245. Declare Function SetupInitialize Lib "CSETUP.dll" (ByVal szYourName As String, ByVal szPassword As String, ByVal Language%, ByVal szSrcDir$, ByVal szDestDir$) As Integer
  246. Declare Function SetLogFile Lib "CSETUP.dll" (ByVal szLogFileName$) As Integer
  247. Declare Function SetSharedBatchFile Lib "CSETUP.dll" (ByVal szBatchFileName$, ByVal szSysDir$) As Integer
  248.              
  249.              
  250. '-----------------------------------
  251. ' DDE Link with Progman functions
  252. '-----------------------------------
  253. Declare Sub AddItemToProgman Lib "CSETUP.dll" ( ByVal szGroupName$, ByVal szExeName$, ByVal szTitle$, ByVal szTextInfo$ )
  254. Declare Function AddProgmanGroup Lib "CSETUP.dll" ( ByVal szGroupName$ )As Integer
  255. Declare Function ShowProgmanGroup Lib "CSETUP.dll" ( ByVal szGroupName$ )As Integer
  256. Declare Function DeleteProgmanGroup Lib "CSETUP.dll" ( ByVal szGroupName$ )As Integer
  257. Declare Function AddProgmanItem Lib "CSETUP.dll" ( ByVal szProgName$, ByVal szTitle$ )As Integer
  258. Declare Function DeleteProgmanItem Lib "CSETUP.dll" ( ByVal szItemName$ )As Integer
  259. Declare Function QuitProgman Lib "CSETUP.dll" ( )As Integer
  260.              
  261. '--------------------
  262. ' Specific functions
  263. '--------------------
  264. Declare Function AddSectionToCopyList Lib "CSETUP.dll" (ByVal szSection$, ByVal szDestDir$) As Integer
  265.  
  266. ' These are the values returned by GoSetup Function -----------
  267. Global Const SETUP_SUCCESSFUL = 1               ' Transfert is OK
  268. Global Const SETUP_USERBYPASS = 2               ' User bypassed a file
  269. Global Const SETUP_FAILINCOPYING = 3            ' Fail in copy ( fatal )
  270. Global Const SETUP_USERABORT = 4                ' User abort transfer ( fatal )
  271. Global Const SETUP_CANTCREATEDIR = 5            ' Can' t create destination directoy ( fatal )
  272. Global Const SETUP_WRONGSIZE = 6                ' File size verification error ( Verify mode only - fatal )
  273. Global Const SETUP_INTERNALERROR = 7            ' Error in YOUR programm... ( fatal )
  274.  
  275. ' These are the messages sent by GoSetup Function to hwnd---------
  276. 'Global Const    SN_FILENOTFOUND=        WM_USER + 381   ' File not found in disk - not fatal - lp is FileName
  277. 'Global Const    SN_SRCDIRCHANGE=        WM_USER + 382   ' User change source directory - retrieve new dir with AskForSrcDir
  278. 'Global Const    SN_NEWDISKREQUIRED=     WM_USER + 383   ' Dialog box " New disk required is shown " - lp = new disk label
  279. 'Global Const    SN_FILEINSTALLED=          WM_USER + 384   ' File is installed - lp is destination filename
  280.  
  281.  
  282. Declare Function GoSetup Lib "CSETUP.dll" (ByVal hwnd%, ByVal bUseFinish% ) As Integer
  283. Declare Function DeleteSystemDir Lib "CSETUP.dll" () As Integer
  284. Declare Function GetWinFileAssociation Lib "CSETUP.dll" (ByVal szFileExtName$) As String
  285. Declare Function CreateWinFileAssociation Lib "CSETUP.dll" (ByVal szFileExtName$, ByVal szExeFile$) As Integer
  286. Declare Function ShowWaitCursor Lib "CSETUP.dll" () As Integer
  287. Declare Function HideWaitCursor Lib "CSETUP.dll" () As Integer
  288.  
  289.  
  290. '----------------------
  291. ' Interface functions
  292. '----------------------
  293. Global Const BROSSE_PBLANC = 1          ' Define BRUSH color for background.... ( WHITE )
  294. Global Const BROSSE_PNOIR = 2           ' ... ( BLACK )
  295. Global Const BROSSE_GRIS100 = 3         ' ... ( VERY LIGHT GREY )
  296. Global Const BROSSE_PGRISC = 4          ' ... ( LIGHT GREY )
  297. Global Const BROSSE_GRIS150 = 5         ' ... ( MIDDLE GREY )
  298. Global Const BROSSE_PGRISF = 6          ' ... ( DARK GREY )
  299. Global Const BROSSE_CYAN25 = 7          ' ... ( VERY LIGHT CYAN )
  300. Global Const BROSSE_CYAN50 = 8          ' ... ( LIGHT CYAN )
  301. Global Const BROSSE_CYAN100 = 9         ' ... ( MEDIUM CYAN )
  302. Global Const BROSSE_PCYANC = 10         ' ... ( CYAN )
  303. Global Const BROSSE_PCYANF = 11         ' ... ( DARK CYAN )
  304. Global Const BROSSE_CYAN200 = 12        ' ... ( VERY DARK CYAN )
  305. Global Const BROSSE_BLEU50 = 13         ' ... ( LIGHT BLUE )
  306. Global Const BROSSE_BLEUVERT = 14       ' ... ( LIGHT BLUE GREEN )
  307. Global Const BROSSE_BLEU150 = 15        ' ... ( MEDIUM BLUE )
  308. Global Const BROSSE_PBLEUC = 16         ' ... ( BLUE )
  309. Global Const BROSSE_BLEU200 = 17        ' ... ( DARK BLUE )
  310. Global Const BROSSE_PBLEUF = 18         ' ... ( VERY DARK BLUE )
  311. Global Const BROSSE_BLEU250 = 19        ' ... ( BLUE BLACK )
  312. Global Const BROSSE_VERT25 = 20         ' ... ( VERY LIGHT GREEN )
  313. Global Const BROSSE_VERT50 = 21         ' ... ( LIGHT GREEN )
  314. Global Const BROSSE_VERT100 = 22        ' ... ( MEDIUM GREEN )
  315. Global Const BROSSE_PVERTC = 23         ' ... ( SALAD GREEN )
  316. Global Const BROSSE_VERT200 = 24        ' ... ( LIGHT DARK GREEN )
  317. Global Const BROSSE_VERT250 = 25        ' ... ( MEDIUM DARK GREEN )
  318. Global Const BROSSE_PVERTF = 26         ' ... ( DARK GREEN )
  319. Global Const BROSSE_KAKI = 27           ' ... ( KHAKI )
  320. Global Const BROSSE_JAUNE50 = 28        ' ... ( VERY LIGHT YELLOW )
  321. Global Const BROSSE_JAUNE100 = 29       ' ... ( LIGHT YELLOW )
  322. Global Const BROSSE_PJAUNEC = 30        ' ... ( YELLOW )
  323. Global Const BROSSE_JAUNE150 = 31       ' ... ( DARK YELLOW )
  324. Global Const BROSSE_ORANGE = 32         ' ... ( ORANGE )
  325. Global Const BROSSE_BEIGE = 33          ' ... ( BEIGE )
  326. Global Const BROSSE_PJAUNEF = 34        ' ... ( VERY DARK YELLOW )
  327. Global Const BROSSE_MARRON = 35         ' ... ( BROWN )
  328. Global Const BROSSE_ROSE100 = 36        ' ... ( PINK )
  329. Global Const BROSSE_ROUGE100 = 37       ' ... ( LIGHT RED )
  330. Global Const BROSSE_PROUGEC = 38        ' ... ( RED )
  331. Global Const BROSSE_PROUGEF = 39        ' ... ( DARK RED )
  332. Global Const BROSSE_FUSH50 = 40         ' ... ( VERY LIGHT MAGENTA )
  333. Global Const BROSSE_FUSH100 = 41        ' ... ( LIGHT MAGENTA )
  334. Global Const BROSSE_PFUSHC = 42         ' ... ( MAGENTA )
  335. Global Const BROSSE_PFUSHF = 43         ' ... ( DARK MAGENTA )
  336. Global Const BROSSE_3DRECT = 44         ' ... ( SPECIAL - 3D RECTANGLE )
  337. Global Const BROSSE_3DCIRCLE = 45       ' ... ( SPECIAL - 3D CIRCLE )
  338. Global Const BROSSE_3DLOZANGE = 46      ' ... ( SPECIAL - 3D DIAMOND )
  339.  
  340. Declare Function SetPatternBrush Lib "CSETUP.dll" (ByVal hi%, ByVal iBitmap%) As Integer
  341. Declare Function SetPatternBrushStandard Lib "CSETUP.dll" (ByVal iModel%) As Integer
  342. Declare Function SetupSetTitle Lib "CSETUP.dll" (ByVal szDialogTitle$) As Integer    '[new]
  343. Declare Function SetupSetBeepMode Lib "CSETUP.dll" (ByVal bDiskBeepMode%) As Integer    '[new]
  344. Declare Function SetLogo Lib "CSETUP.dll" (ByVal hi%, ByVal iSetupLogo%) As Integer
  345. Declare Function SetLogoType Lib "CSETUP.dll" (ByVal bTextType%) As Integer
  346. Declare Function SetTextLogo Lib "CSETUP.dll" (ByVal szLogoText$, ByVal szFont$, ByVal iLogoSize%, ByVal clrLogo As Long, ByVal b3D%, ByVal bItalic%) As Integer
  347. Declare Function SetTextDetail Lib "CSETUP.dll" (ByVal szLogoText$, ByVal szFont$, ByVal iLogoSize%, ByVal clrLogo As Long, ByVal b3D%, ByVal bItalic%) As Integer    '[new]
  348. Declare Function SetVerifyMode Lib "CSETUP.dll" (ByVal bVerify%) As Integer
  349.  
  350. Global Const LANGUAGE_ENGLISH = 0               ' Language definition ( use French or English )
  351. Global Const LANGUAGE_FRENCH = 1                ' ...
  352. Global Const LANGUAGE_GERMAN = 2                ' NOT AVAILABLE FOR THIS VERSION !!!
  353. Global Const LANGUAGE_SPANISH = 3               ' NOT AVAILABLE FOR THIS VERSION !!!
  354.  
  355. Declare Function SetupSetLanguage Lib "CSETUP.dll" (ByVal cSetupLanguage%) As Integer    '[new]
  356. Declare Function ShowMainWindow Lib "CSETUP.dll" (ByVal hOriginalWnd%) As Integer
  357.  
  358.  
  359.  
  360. '------------------
  361. ' 6 - New functions
  362. '------------------
  363. Declare Function CenterDialogBox Lib "CSETUP.dll" (ByVal m_hWnd% )                    
  364. Declare Sub      GiveTheHand Lib "CSETUP.dll" ()
  365. Declare Function CopyFile Lib "CSETUP.dll" (ByVal szSrcFile$, ByVal szDestFile$) As Integer
  366. Declare Function IsFileNewer Lib "CSETUP.dll" (ByVal szFileIn$, ByVal szFileOut$) As Integer
  367. Declare Sub        GetBackupName Lib "CSETUP.dll" (ByVal szFileIn$, szNewName$)
  368. Declare Function BackupFile Lib "CSETUP.dll" (ByVal szFileIn$ ) As Integer
  369.  
  370.  
  371. ' ----------------------- END OF SETUP STUDIO 2.2 (C) INCLUDE FILE --------------------------------------------
  372.  
  373.